1000 Rem .SBM130 1.1 01/26/86 
1010 Goto 2500 

1020 Graphics 2: Poke 710, Cl spoke 712, C2s Poke 755, Is Return 
1025 Graphics 0s Poke 710, Cl sPoke 712, C2s Return 
1030 Position 2,9:? *' V^ii+^N^gpo" 

1040 Return 

1045 Trap 1045: Posi ti on 2,2:? "NUMBER OF LABEL LINES " 3 Lab : Posi t i on 23,2: Input L 
ab: Return 

1050 Position 1,2: Input Cn$: If Cn$=" " Then Cn$=" " : Posi t i on 2,2:? Cnf: Cn2f=" " : Cal 
" : Ca 2 «~" " : Return 

1055 Position 1,4: Input Cn2f: Posi ti on 1,6: Input Calf: Posi t i on 1,8: Input Ca2$:Ret 
urn 

1060 Position 1,10: Input Pont 
1070 Return 

1080 ? : ? "PART NUMBER" : Input Pnf: If Pn$="END" Or Pn$*"NEXT" Then Return 
1090 T$="#",Pn$, "<3" 

1100 F=*Find<Pnptf,TS,0> :T*F: If F=0 Then ? " lloR’TT^i" : F 

or W=1 To 100: Next W: Return 

1110 F=»Find (Pnpt*, "@",F) : S*Val <Pnpt$(F+l) ) 

1120 F=Find <Pnpt$, "&",F> : B-Val (Pnpt$(F+l) ) s Return 
1130 Trap 1150: Open # 1 , 4, 0, "D2: INVFIL. DAT" : Return 

1140 Point #l,S,B:Rget # 1 , Pnf , Desf, Vnf, Valf , Va2f, Qoh , Locf, Reo, Cost , Pri , Sol d , Tds, 
Qoo,Pg 

1150 Close # 1 : Return 
1160 Trap 1210:Close #1 

1170 Open # 1 , 8 , 0 , "D 1 : SETUP2. DAT" : Rput #1 , Df, Dtot , In, Ytd, Ptd, Ttd, Nac, Tr , Ml , M2, M7, 
M 8 , M9, M10 
1180 Goto 1210 

1190 Trap 1210: Close #l:0pen # 1 , 12, 0, "D2: INVFIL. DAT" 

1200 Point #1 , S, B: Rput 41 , Pnf , Desf , Vnf , Va 14, Va2f , Qoh, Locf, Reo, Cost , Pri , Sol d , Tds, 
Qoo, Pg 

1210 Close # 1 : Return 

1215 ? "} ENTER FIRST LETTER OF YOUR CHOICE." 

1220 Close #2: Open #2, 4, 0, "K: " : Get #2, Key: Close #2 

1230 Sound 0, 100, 10, 14: For W =1 To 4:Next W:Sound 0, 0, 0, 0: Return 


1240 T$="#", Accf, "ti" 


II 


-'*££ 11 n* WSJppci-'** 11 4 -hi <*-' 0 f tfj.t-' 


" : F 


1250 F=Find <Acptf , Tt, 0) : T*F: If F**0 Then 
or W«1 To 100: Next W: Return 

1260 F*Find <Acpt$, "<1" ,F) iSa-Val <Acpt$<F+l> ) 

1270 F«*Find (Acptf, , F) : Ba**Val (Acptf (F+l ) ) : Return 

1280 Close #l:Trap 1300: Open #1 , 4, 0, "D1 : ACCOUNT. DAT" : Return 

1290 Point #1 , Sa, Ba: Rget #1 , Cnf, Cn2*, Cal*, Ca2$, Tdt , Pd , Bd , Acc , Trm* 

1300 Close #1: Return 

1310 Trap 1340: Open #1 , 12, 0, "D1 : ACCOUNT. DAT" : Return 

1320 Position 11,0:? Acc:Position 2,2:? Cnt:Position 2,4:? Cn2f : Posi t i on 2,6:? C 
al $: Posi ti on 2,8:? Ca2$ 

1330 Return r ' 

1340 ? #7; Chrf <Pt 1 > : ; Acc 
1350 ? #7; Using Fl$,Cnt, "TO DATE TOT", Tdt 
1360 ? #7; Using Flf, Cal*, "PAID TO DATE", Pd 
1370 ? #7; Using Flf, Ca2f, "BALANCE DUE" , Bd 
1380 Rc*Rc + l:If Rc>14 Then ? #7 ; Chrf (Pt4) : Rc=“0 
1390 Return 

1400 Position 2,2:? "ENTER ACCOUNT NUMBER OR NAME": Input T$ 

1420 Return 

1425 Close #l:0pen #1 , 4, 0, "D1 : ACCPT. DAT" : Rget #1 , Acptf: Return 
1430 Close #7:0pen #7,8,0, "P: " 

144u Return 

1450 Close #1 : Open #1 , 4, 0, "D1 : ACCOUNT. DAT" 

1460 Return 

1470 Point #1 , Sa, Ba: Rget #1 , Cnf, Cn2$, Calf, Ca2f, Tdt, Pd, Bd, Acc, Trmf: Return 
1480 Note #1 , Sa, Ba: Rget #1 , Cnf, Cn2t, Cal* , Ca2f, Tdt , Pd , Bd , Acc , Trmf: Return 
1490 Point #1 , Sa, Ba: Rput #1 , Cnf , Cn2f, Calf , Ca2f, Tdt , Pd , Bd, Acc , Trmf : Return 
1500 Close #1 : Open #1 , 12, 0, "D1 : ACCOUNT. DAT" : Return 
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II 


->*££ II R*«-' * IKp-'f u-' * i For W= 


3s? M ll¥«lll>f*V-'V»i{M 11 

1520 Position 2,5s? "£nu« l!”:pd~ ; &SIbpuu , ‘ 3 Posi t i on 2,7s? "£§*B "•-'u® ♦-■'§§¥" : Return 
1530 Position 2,?:? ; Return 

1540 Position 1,10s Input Trm*:Return 
1550 Tt*"#", Acc*, 

1560 F=Find<Acpt*,T*,0) sT*Fs If F«0 Then 7 
1 To 100# Next Ws Return 
1570 Position 2,10s? Trm*s Return 

1580 ? #7 5 Chr* (Pt2) ; Acc ; Tab (3) ; Cn*j Tab (45) ; Cai *5 Tab (32) ; Ca2*; Tab ( 1 19) ; Trm$; Chr* ( 
Pt3) 

1590 Rc=Rc-*-l:If Rc >56 Then ? #7; Chr* (Pt4) s Rc=0 
1600 Return 

1610 Position 2 , 11 s? “4 s Posi ti on 2,13s? "¥&§I" s Posi t i on 2,15s? 

£jj" 

1620 Return 

1630 Position 2,12s? TdtsPosition 2,14s? PdsPosition 2,16s? Bd 
1640 Return 

1650 Position 1,12s Input TdtsPosition 1,14s Input PdsPosition 1,16s Input Bd 
1660 Return 

1670 ? #7; Chr* (F’tl ) ; 5 Acc 

1680 ? #7; Cn$s ? #7?Cn2* 

1690 ? #7; Cal* 

1700 ? #7 ; Ca2* 

1710 For W= 1 To Lab-5 3 ? #7 3 Next W 
1720 Return 

1730 ? "lt££llR 1 *^"|Acc 3 ? Cn*s? Cn2* 

1740 ? Cal* 

1750 ? Ca2*s? 

1760 Return 

1770 Gpm^Os If Cost>0 And Pri>0 Then Gpm * 5 ( Int (( 1 - (Cost/Fri )) *1000) ) /10 
1780 Position 2,2s? ,, ¥Afc>4- /! $RS?5)JC>® ";Pn* 

1790 ? "Ipu£bi¥*§ Half's? Desf 

1800 ? M ap**5llcnT H :? Vn*s? Val*:? Va2* 

1810 ? "Silt® " ;Qohs? " ! 4 ll£A*§ll*i® " ; Loc*s Posi ti on 23,10s? " ’¥£ "jGpm;"'/. " 

1820 ? "dpllbSpd-^lli*!'*® " jReos? "£tlu®®*" 5 Cost s ? '‘uaiip-^oSCp®* " 5 Pr i 

1830 ? " j Sol ds ? "<t H 6 a>£- ; Sn^Ao-'aA^Np- , uii«<a®$" 5 Tdss ? "^B-MI^-Mldapo® 


" ; Qoo 

1840 ? " 'dllRV® "jPg 
1850 Return 

1860 Position 14,2s Input Pn*s If Pn** s ' , END" Then Return 

1870 Position 1,4s Input Des* : Posi t i on 1,6s Input VnfsF'osition 1,7s Input Val t: Posi 
tion 1,3s Input Va2* 

1880 Trap 1880s Posi ti on 6, 9s Input Qohs Posi tion 11,10s Input Loc* 

1890 Trap 1890s Posi ti on 16, 11: Input Reo 
1900 Trap 1900s Posi ti on 7, 12s Input Cost 
1910 Trap 1910s Posi tion 13, 13s Input Pri 
1920 Trap 1920s Posi ti on 15, 14s Input Sold 
1930 Trap 1930s Posi tion 26, 15s Input Tds 

1940 Trap 1940s Posi ti on 15, 16s Input Qoo ' • 

1950 Trap 1950: Posi ti on S, 17s Input Pg 

I960 Return 

1970 T*»"#",Pn*, "iS" 

1980 F»Find (Pnpt¥, T*, 0) s If T«F Then Return 

1990 If F>0 Then ? " ¥&b®- / $R8gpa-'& ! iapaSB- / pu§u«’'*''*''*‘' s For W= 1 To 100: Next W 

2000 Return 
2010 End 


2020 F 1 *— " ! 5 ! * ! • * • } J ; ; !!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

##. ## ##### *!!!!!!!!! " 

2030 F 1 *«F 1 * f " ###### . ## ######. ## ### . # " 

2040 ? #7:? #7p Tab (32-Len (Cnf-) /2) ; Cnf ; " " ; D* ( 1 , 2) ; 

) s ? #7 


uutiMrit itaitttik a a a a a 

Ti TT TV TT Tr T» Ti Ti Tr TT TT tt n TT TT i TT TT IT T» TT 

D$ (3,4) f " / " j D* (5) ; Chr* (Pt2 


2050 ? #7 ; "PART # DESCRIPTION 

PRICE QOO LOCATION "j 
2060 ? #7 j " T/C0ST T /RETAIL GPM" 

2070 For W=1 To 120s? #7} | s Next Ws? #7 


GROUP Q0H COST 


2085 Trap 2090s Open #7, 8, 0, "F's " 

2090 Trap 2085s? #7$ Using Fl$ , Pn$, Des* , Pg , Qoh , Cost , Pr i , Qoo, Loc*, Tcost. , Tpr i , Gpm 
2100 Gtc“Gtc+ Tcost : Gtp*=Gtp+Tpr i 

2110 Li ne=Li ne+1 : If Line>=60 Then ? #7? Chr* (Ft3) p Chr* (Pt4) s Goto 2040 
2120 Return 

2130 Trap 2140: If Vn* < 1 , Len (Cn*> ) -Cn* Then 2090 
2140 Return 

2150 If Pg*Pgn Then 2090 
2160 Return 

21 70 F 1 *■ "•!><!!'!!!!! 1 1 ' !!!!!!!!!!!!!! 1 !!!!!!!!!! ! !!!!!!!!!! ##### . ## " 

2180 ? #7s ? #7; Tab (27) p "PRICE LIST " f D* < 1 , 2> p p D* <3, 4) p "/" p D* <5) i ? #7 
2190 ? #7 | "PART # DESCRIPTION LOCATION PRICE" 

2200 For W-l To 78s? #7; "*" ; s Next Ws? #7 
2210 Li ne=4s Return 
2215 Trap 2220s Open #7,8,0, "Pi" 

2220 Trap 2215s? #7; Using FI*, Pn*, Des* , Loot, Pri 
2230 Li ne=Li ne+1 s If Lin#*60 Then ? #7p Chr* (Pt4) : Goto 2180 
2240 Return 

2250 If Qoh+Qoo<Reo Then 2090 
2260 Return 

2270 »’» I I I 1 I I I • I t I « 1 I I I 1 I I I I ;»« 1 J I 1 * * I t I » I I I I I I I I I » I I I 

# ##### !!!!!!!!!! ######### ######.##'' 

? #7p Chr* (Ptl) p "TURN REPORT “ p D*< 1 , 2) p "/" j D* <3, 4) ? "/" { D* (5) 

? #7p Chr* <Pt2) 

2300 ? #7 j "PART # DESCRIPTION QOH COST PRI 

CE QOO LOCATION TURN AMOUNT" 

2310 For W=i To 120:? #7? p s New t Ws? #7 ' 

2320 Return 

2330 Trap 2340s Close #7: Open #7, 8, 0, "Ps " s Goto 2350 

2340 ? " s Gosub 1220: Goto 2330 

2350 ? #7pN*i? #7p A*: ? #7pAl*s? #7pMisc* 


/ 



22S0 

2290 




60 


#7: ? 


#7:? #7; Tab (30) p Chr* <Pt 1 ) ; "PURCHASE ORDER":? #7pTab(33) pChr*(Ptl)p "# 

" 5 M 1 0 s ? #7 

2370 ? #7s? #7 s " ^3=aEi»rir8®i«:sK!aa»«r5tsr3»w«»ss:sc=s:=s;s2!St:!£KiaK3K3;8 3s;3s;3s:3S3s:3=:3:s»ss3a! n 
2380 ? #7; Chr* (Pt 1 ) $ "VENDER: " ; Tab (21 ) p "SHIP TOs " 

2390 ? #7p Pv*p Tab <40> j N* 

2400 ? #7pPal*p'Tab (40) ; A* 

2410 ? #7p Pa2*p Tab (40) pAl* 

2420 ? # 7 * 11 asaassBaaBfflatsaasassssaaasasssfsassBasswsswaBaeattaaaRaaasacfflassssKaBssassssaa !J ; 7 #7 5 7 #7 

2430 ? #7 p "PART Tab ( 14) p "DESC. /VENDOR P/N" ; Tab (52) p "QUAN" ; Tab (58) ; "PRICE EA"; 
Tab < 68) ; "EXT. PRICE" 

2440 ? # 7 n 11 as swap# swtaraiwiw was* was »*«•*#» as warn was was :» SB ^ 

5^2r^s:sK:3=x:5s:2c:aa: ,, 

2450 Te*=l: Return 

2460 Fit* 1 "#### #####.## #####.##" 

2465 Trap 2470s Open #7,8,0, "P: " 

2470 Trap 2465s? #7p Pn*p Tab < 14) p Des*; Tab (52) p i ? #7} Using FI*, Hm, Cost , Coat *Hm 
2480 Tot=Tot+Cost*Hm 

^ O p< g ^ ji» 

2500 Gosub 1020s Position 6,3s? #6; "SBM 130" : Posi t i on 3,5s? #6; "COPYRIGHT 1985" 

2501 Position 2,7s? #6;"newell industries":? , "COMPILING PROGRAM":? "INSTALL DAT 
A DISK IN DRIVES 1 and 2" 

2502 Fast :? " PRESS RETURN WHEN READY "p 

2505 Dim Cl*<3) ,C2*<3) , D* (7) , Q* <7) , N* (40) , A* (40) , Al* (40) , Mi sc* (20) ,T*(13) ,F1*( 12 
0) , F2* (10) , Acc*(10) , Trm* (12) 

2506 M3* 1000s Max "29000s Dim S*(5),B*(4) 

2510 Dim Pn* (12) , Des* (30) ,Vn*(35) , Val*(35) ,Va2*(35) ,Loc*(10) ,Cn*(35> ,Cn2*<35) , Ca 


- |J 77 0 


1* (35) ,Ca2*(35) ,Pon*(12) 

2515 Input T*s? , " 3-^11*55^ ’‘•/S^Spupu" s Poke ^ 1913 ,87' 

2520 Trap 7999s Open #1 , 4, 0, "Di : SETUP. DAT" s Rget #1 , Cl*, C2*, N*, A*, Al*, Mi ac*, Pt 1 , Pt 
2, Pt3, Pt4, M3, M4, M5, M6 

2530 Close #l:Qpen #1 , 4, 0, ”D1 s SETUP2. DAT" s Rget #1 , D$, Dtot , In, Ytd , Ptd , Ttd, Nac , Tr , 
Ml , M2, M7, MS, M9, M10 

2540 Dim Acpt* (Max *M1 ) , Pnpt* (Max #M2) 

2550 Trap 2560s Gosub 1425 


• — ■ .< 


“i ” . T l, » 1 t & T T\ /V3T I L 


- Ei.xr* -T- «» 


2570 Close #1 : Cl=Val (Clt ) s C2=Val (C2t) 
2600 Dtt=Dt 


2610 

2620 

2630 

2640 

2650 

2660 


"EXAMPLE! 010133* (JAN. 1, S3) s Input Ot 


? "I DATE IS " ; Dt ; " MMDDYY" 

? "RETURN OR ENTER NEW DATE "! 7 

If Len(Qt )>6 Then 2610 • - v 

If Len (Clt) >5 Then Dtt*Qt 

? "3 DATE IS " ; Dtf ; " (Y OR N> ?" 5 : Gosub 1220 
If KeyOAsc ("Y" ) And Kay< >Asc < "y" ) Then Dtt*Dt:Goto 2610 
2670 Dt*Dtt:If Q**"" Then 2690 
2680 Dtot®0: Gosub 1160 
2690 Gosub 1020 

2700 Position 1,2:? # 6 ; "Reports" : Posi ti on 1,3a? # 6 ; " Invoi ci ng " 

2710 Position 1,4:? # 6 ; "Mail 1 i st " t Posi ti on 1,5:? # 6 ; "Add/edit i nventory" : Posi ti 
on 1,6:? # 65 "Ordering receiving" 

2720 Position 1,7:? # 65 "System setup" : Posi tion 
2740 Gosub 1215: If Key<65 Or Key >90 Then 2740 
2750 Position 0,9 

3940 


1.9:? #6: "Quit" 


jCf 


If Key*Asc("R"> Then 
I f Key*Asc ( " I " ) Then 
If Key*Asc < "M" > Then 
If Key*Asc ( " A" > Then 
If Key® Asc ( " 0 " ) Then 
If Key=Asc<"S"> Then 
If Key*Asc("Q") Then 
2830 Goto 2690 

2850 Gosub 1020: Posi ti on 1,2 


2760 

2770 

2780 

2790 

2800 

2810 

2820 


m er a 
i-wDU 


120 


5550 

6350 

7/77 

? "> REMOVE DISKETTES AND TURN SYSTEM OFF": End 


:? # 6 ; "Sal e" : Posi t i on 1,3:? # 65 " Inventory " 


2860 Position 1,4:? # 65 "Ex i t " : Posi t i on 1,5:7 
# 65 "Totals" 

2870 Position 1,7a? # 6 $ "Close out day " : Posi t i on 1,3 
2890 Gosub 1215 

2910 Quote*0: If Key*Asc<"S") Then 2990 
2920 If Key=Asc < " I " ) Then 3660 


# 6 ; "Return to stock ": Posi ti on 1,6:? 
? # 65 "Quote" 


If Key*Asc ( "E" )• Then 
If Key*Asc("R") Then 
If Key*Asc("T") Then 
If Key*Asc ( "C" ) Then 
If Key*Asc("Q"> Then 


2690 

3720 

3840 

o>870 

Quote* 1 : Goto 2990 


2930 
2940 
2950 
2960 
2970 
2980 Goto 2850 

2990 Gosub 1025: Posi tion 14,0:? " i^ali : Posi t i on 13,1:? "RETURN TO QUIT" 

3000 If Quote>0 Then Position 14,0:? "u&^'pu-'ANlltjj ":? 

3010 Trap 2850:? "ENTER SALESPERSON #"51 Input Spn:? "ENTER ACCOUNT Input Acc 

$ : St* 0 : Ttol *0 

3015 If Acct® "NEXT" Then Gosub 1425 

3020 Gosub 1510: Gosub 1030: Test*0: Trm$="CASH" 

3030 If Acct*"" Then Acc*0:Goto 3070 

3040 If Acct="NEW" Then Acc*Nac : Acct=Strt ( Acc ) : Test*l 

3050 Gosub 1240:Gosub 1280:Gosub 1290: If F>0 Then Gosub 1320:Goto 3070 

3060 Goto 2990 

3070 Gosub 1050: Gosub 1060 

3080 Fit*"#### t####.## t#####. ##" : F2t*"t#####. ##" 


3090 
3 1 00 
31 10 
3 1 20 
3 1 30 
3140 
3150 
#7: ? 
3160 
3170 
3180 
3190 
3200 
32 1 0 
-522 O 

•«*' 4m -W V 

n v 11 


1 


" iu-'t t §u-''§ ! l° iioxciti 
Gosub 1220: If Key< >Asc ( " Y" ) And Key< >Asc ( "y " ) Then 2990 
Trap 3120:Close #7:0pen #7, 3, 0, "P: " : Goto 3130 

? "«Nb!i-'ll^- / ¥dS^*pd-^^a-'¥dpuu- ; ojj<tNd'-i'' , « "-.Gosub 1220: Goto 3110 
? #7;Nt:? #7; At:? #7; Alt:? #7; Mi set: If Quoted Then In*In+l:Goto 3150 
? #7:? #7:? #7; Tab (35) ; Chrt (Pt 1 ) ; "QUOTE" : ? #7:? #7:? #7: Goto 3160 
? #7:? #7:? #7; Tab (33) 5 Chrt <Pt 1 ) ; " INVOICE" : ? #7$ Tab (33) 5 Chrt (Pt 1 );“#"; In: ? 

#7:? #7 




# 

i 

r> 


#7 s Chrt (Pt 1 ) ; "TO: ";Tab(21) j "ACC# " 5 Acc 

#7 : Cnt ; Tab ( 40) ; "DATE: " ; Dt ( 1 . 2) ; " / " ; Dt ( 3, 4) ; " / " ; Dt (5, 6 ) 
#7} Cn 2 t: ? #7; Cal t; Tab (40) ; "SALESPERSON: " 5 Spn 
#7;Ca2f 5 Tab (40) ; "P.0. OR AUTH : " 5 Pont 


#7: "PART #" : Tab ( 1 4) : "DESCRIPTION" J Tab (52) j "QUAN" ; Tab (58) ; "PRICE EA" : Tab (6 


r A T 


t /•**»— 11 


3230 2 #7 <! M waB»Ma«BaBasmaB3»aaac»saiaa!38!sstB}aBs««ca3!«««Bia®aBaaacfflS8«:3aas 

at as seas sc agog sc ss '* 

3240 ? "3 ''s Posit ion 15,0:? " §'iaill£*>i ’ " : If Quote >0 Then ? "Deposition 17,0:? "QU 
OTE" 

3250 Gosub 1080s If Pn*«"END" Then 3410 

3260 If Pn$«"NEXT" Then Gosub 3930: Goto 3240 

3270 If F-C Then 3240 

3280 Gosub 1130: Gosub 1140 

3290 Gosub 1770 

3300 Trap 3300: Posi t i on 2,19s? " t ll " ; : Input Hm: If Hm<“0 Then 3240 

3310 Trap 3330: Posi ti on 2,20:? H ¥tif Cp-'pACt I Input Pe: If Pe<0 Then Pe*Pr i -Int ( (A 

bs (Pe) /100*Pri ) *100) / 100 

3320 Goto 3340 

3330 Pe»Pri 

3340 Position 11,19:? Hm; " Posit ion 13,20:? Pe; " ":? " §u->* t §u-'£iibbp£<t-'o 

f3 ll a-'*! s Gosub 1220 

3350 If K*y< >A»c < "Y" ) And Key< >Asc ( "y " ) Then ? ">":Goto 3290 
3360 Ep“0s Ep«Hm*Pes If Pg>4999 Then Ttol =Ttol +Ep 
3365 Trap 3370: Open #7, 8, 0, "Pi ” 

3370 Trap 3365:? #7; Pn$; Tab ( 14) ; Deaf ; Tab (52) ; : ? #7; Using Fl$,Hm,Pe,Ep 

3380 If Quote >0 Then St“St+Ep : Goto 3240 

3390 Sol d“Sol d+Hm: Tds“Tds+Ep: Qoh“Qoh-Hm: St“St+Ep 

3400 Gosub 1 190: Dtot“Dtot+Ep: Goto 3240 
3410 ? #7 « n ;a::s::£::ffit»icr;s::»aa:aES5tKXX!B!:38iffl:n:2CS2:ss:s::!»ss3s;3!::3s:s8:8E:ffi:te:K;« 

ns at scot sac stages sc ** 

3420 ? " J §u-'uA , ip- / *etu&p’£p" ; s Input T$:Tax“0 
3430 If Tf < >" Y" And T*<>"y" Then 3460 

3440 Trap 3440s Posi ti on 2,2:? Tr* 100s Posi ti on 

emp/ 100 

3450 If T$“"Y" Or T$*»"y" Then Tax=Int ( (Tr*Ttol ) *100) /100: If Tax<Tr*Ttol Then Tax 
“Tax+0. 01 

3460 Trap 3460: Posi ti on 2,3s? "Lit § ¥¥§>4' ’-'EtAd ; : Input Sc 

3470 Total “St+Sc+Tax 

3480 Position 2,5:? "AMOUNT DUE Total : If Quote>0 Then 3500 

3490 Trap 3470: Posi ti on 2,7:? " AxllN^s^dpEpSapI" ;: Input Amt 

3500 Position 2,9:? "4pdxu" Posi t ion 8,9:? Trmf: Posi tion 7,9: Input Trm* 


r~y t*y 


s Input Temp:Tr“T 


tc: 


" $u-' <t tiu-'£ ll dopEs-'oR-'iio-'^": Gosub 1220: If Key < >Asc ( " Y" ) And Key< >Asc ( "y " ) 


3420 


o 1 0 

Then 

3520 ? #7; "TERMS: " j Trm* j Tab (52) ; "SUB-TOTAL" ; Tab (68) ; :? #7; Using F2$,St 

3530 If Tax >0 Then ? #7; Tab (52) ; "TAXABLE TOT. " ; Tab (68) ; : ? #7; Using F2$,Ttol:Ttd 

=Ttd+Ttol 

3540 ? #7; Tab (52) ; "TAX" ; Tab (68) ; : ? #7; Using F2$,Tax 

3550 ? #7; Tab (52) ; "SHIP/HANDLING"; Tab (68) ; :? #7; Using F2$,Sc 

3560 ? #7; Tab (52) ; "TOTAL" ; Tab (68) ; : ? #7; Using F2*, Totals If Quote >0 Then 3610 
3570 ? #7; Tab (52) ; "AMOUNT PAID" ; Tab (68) ; : ? #7; Using F2«,Amt:If Amt>«Total And T 
ax >0 Then M7*>M7+Ttol : M9*M9+Tax 

3580 If Amt >Total Then ? #7; Tab (52) ; "REFUND" ; Tab (68) ? #7? Using F2*, Amt-Total 

3590 Bal“0:lf Amt< ot Total Then Bal “Total -Amt 

3600 ? #7; Tab (52) ; "BAL DUE" ; Tab (63) ; : ? #7; Using F2$,Bal 

3610 If Acc>0 Then ? #7; "Please use account number when placing orders." 

3620 ? #7;Chrf(Ptl) ; "THANK YOU" ; Chr$ (Pt4> : If Quote>0 Then 2850 

3630 Tdt“Tdt+Total : Pd“Pd+Amt : Bd“Tdt-Pd : Ytd“Ytd+Total -Tax s Ptd=Ptd+Total -Tax : M8=M8 
+Amt 

3640 If Acc >0 Then Gosub ISOOsGosub 1490:Gosub 1210: If Test >0 Then Nac=*Nac + l 
3650 Gosub 9000: Gosub 1160: Goto 2850 

3660 Gosub 1025: Position 13,0:? " lltili-'BtpEO" : Posi t i on 11,1:? "ENTER ' END T 
0 QUIT" 

3670 Gosub 1080s If Pn$“"END" Then 2850 
3680 If Pn$“"NEXT" Then Gosub 3930: Goto 3660 
3690 If F»0 Then 3660 
3700 Gosub 1130: Gosub 1140 

3710 ? "3 ": Gosub 1770: Gosub 1220s Goto 2850 
3720 Gosub 1025: Posi ti on 17,0:? "dpcRd^" 

3730 Gosub 1080: If F=>0 Then 2850 
3740 Gosub 1130: Gosub 1140 
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tflLi. 


1:1 


tl 


By<>A«c("y") Then 2850 

3760 Trap 3760: Posi ti on 2,19:? "tlld-'xA^R "51 Input Hm: If Hm<»0 Then 2850 

3770 Trap 3770: Posi ti on 2,20:? "¥di£p-'pA£t ” Input Pe: If P»<0 Then 3770 


Hm 


it 


Position 13,20:? Pe; " 


It 


: ? "§u-'«t§u-'’£llbbp£*-'o 


i « r 


#7; Using F2^,M8 


#7.: "CASH SALES 
#7; Using F2*,M7 

#7; Using F2$ , M9: M7=0: Ii8=>0: Ii9=0: Gosub 9000:Go3ub 11 


3780 Position 11,19:' 

(3 -> 11 o-'^ " 5 : Gosub 1 220 

3790 It KeyOAsc <"Y"> And Key< >Asc ( "y" > Then 2850 

3800 Qoh=Qoh+Hm: Sol d^Sol d-Hm: T7=Hm*Pe: Tds s =Tds-T7 : Ytd=Ytd-T7 : ? "fcAuAgKp" ;: Gosub 1 
220: Tax 3 "©: Ptd“Ptd’~T7 

3810 It Key^Asc < "Y" ) Or Key«Asc ( "y " > Then Ttd*Ttd-T7 : Tax=Int ( (Tr #T7) # 100) / 100: I t 
Tax<Tr#T7 Then Tax*Tax+0.01 
3820 Ytd»Ytd-Tax : Ptd=Ptd~Tax : Dtot=Dtot-T7 
3830 Gosub 11 60: Gosub 1190: Goto 2850 

3840 FI *=»"$######. ## $######.## *#####.##" :? " YEAR PERIOD TODAY" 

3850 ? Using Fl$, Ytd , Ptd , Dtot 
3860 Gosub 1220: Goto 2910 

3870 ? "3-ARE YOU SURE ?"::Gosub 1220: It Key< >Asc ( " Y" ) Then 2890 

3880 Trap 3870: Close #7: Open #7,8,0, "P":? #7 ; Chr$ (Pt 1 ) ; "DAILY SALES ” j D*< 1 ,2) | "/ 
(3, 4) 5 M / " | D$ ( 5 ) 

3890 F2$="t######.##":? #7:? 

3900 ? #7; "TAXABLE SALES";:? 

3910 ? #7; "TAX COLLECTED";:? 

60 

3920 Goto 2690 

3930 Close #l:0pen # 1 , 4, 0, "D2: INVPT. DAT" : Rget #1 , PnptS: Cl ose #1: Return 
3940 Gosub 1020: Posi ti on 1,0:? # 6 ; " A 1 1 " : Posi t i on 1,1:? # 65 "Outstandi ng " ; Posi ti on 
1,2:? # 6 ; “Exit to menu" 

3950 Position 1,3:? # 6 ; "Selected" : Position 1,4:? # 6 ; "Recover tiles" 

3960 Position 1,5:? # 6 ; "Credit accounts" : Posi ti on 1,6:? # 6 ; "New accounts" : Posi ti 
on 1,7:? # 6 ; "List accounts" 

3970 Position 1,8:? # 6 ; "Update/edi t " 

3990 Gosub 1215 

4000 Fl$="! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!! $######.##" 

4010 It Key*Asc ( " A" > Then 4120 

4020 It Key«Asc("Q"> Then 4380 

4030 It Key*Asc ("E") Then 2690 

4040 It Key-Asc <"S") Then 4620 

4050 It Key*Asc("R") Then 4780 

4060 It Key*Asc < "C" ) Then 4450 

4070 It Key«=Asc < "N" ) Then 4900 

4080 It Key«Asc("L“) Then 4170 

4090 It KeyOAsc ( "U" ) Then 4970 

4100 Goto 3940 

4120 Gosub 1025: Position 16,0:? 

4130 Trap 4770: Gosub 1450: Gosub 
4140 Gosub 1480: It Cn**"" And Acc>Nac Then ? 

4150 Gosub 1340 
4160 Goto 4140 

4170 Gosub 1025: Position 16,0:? " AEOn^u-'^Su* " : Rc»0 

4180 ? "NUMERICAL":? "ALPHABETICALLY":? :? "ENTER FIRST LETTER OF YOUR CHOICE"; 
4190 Gosub 1220: It Key*Asc("N") Then 4220 
4200 It Key“A$c("A") Then 4260 
4210 Goto 4770 

4220 Trap 4770:6osub 1450: Gosub 1430:? #7; ChrS (Pt 1 ); "ACCOUNTS LIST" 

4230 Gosub 1480: It Cn$*"" And Acc>“Nac Then ? #7; Chr$ (Pt3) ; Chr$ (Pt4> : Goto 477 / 0 
4240 Gosub 1580 
4250 Goto 4230 

4260 Trap 4770: Gosub 1450: Gosub 1430:? #7; ChrS (Pt 1 ) 5 "ACCOUNTS LIST" : Acpt$»" " 

4270 Trap 4290:Gosub 1480: It Cn*="" Then 4290 

4280 Cn$ (5) : Acpt$=Acpt$, "#",Cn$, "0" , Str$ (Sa) , , Str$ (Ba) : Goto 4270 

4290 TS*"T-HHH-t" : F*0 

4300 F=Find (Acpt$, ,F> : It F=»0 Then 4330 

4310 It Acpt$ (F, F+4) <TS Then T$*Acpt$ (F, F+4) : F 1 «=F: Goto 4300 
4320 Goto 4300 

4330 F»Find (Acpt$, M tS",Fl) :Sa=Val (Acpt$(F+i) ) 

4340 F=Find (Acpt$, " 8 .;",F) : Ba*Val (Acptt(F+l) ) 

A- ysrr, S\ r~ . 1 * C I - 1 dTrvs rz ; t i 


"A ! st ! i- ; A££llN^*u" : Rc*0 

1430:? #7; Chr$ <Pt 1 ) ; "ALL ACCOUNTS" 

#7; Chri (Pt4) : Goto 4770 


4360 F«Find<Acpt*, 0) i If F*0 Then ? #7; Chr$ <Pt4> : Gosub 1425: Goto 4770 
4370 Goto 4290 

4380 Gosub 1025: Posi ti on 10*0:? " ’•-'&££ iin*!<*u" : Gto=0: Rc=0 

4390 Trap 4770:6osub 1450: Gosub 1430:? #7: Chr$ <Pt 1 >: "OUTSTANDING ACCOUNTS" 

4400 Gosub 1480: If Acc>Nac Then 4440 

4410 If BcK^O Then 4400 

4420 Gosub 1340: Gto«Gto+Bd 

4430 Goto 4400 ( 

4440 ? #7: ? #7; "TOTAL OUSTANDING * ";Gto:? #7; Chr$ CPt4> : Goto 4770 
4450 Gosub 1025: Posi ti on 13,0:? "£ojaSi«-'6££llN^4u" 

4460 Gosub 1400; If T$»"" Then 4770 

4465 If T$“"NEXT" Then Gosub 1425: Goto 4540 

4470 Trap 4580: Acc»Val (TS) : Acc$=T$: T$=" , Accf, "il“ 

4480 F*=Find (Acptf , T$, 0) : If F=0 Then ? 0 iiijj'TTS" : For W=1 To 100: Ne 

xt W: Goto 4450 

4490 Gosub 1260: Gosub 1280: Gosub 1290 

4500 Gosub 1510: Gosub 1530: Gosub 1320: Gosub 1570: Gosub 1610: Gosub 1630 

4510 ? ll Gosub 1220: If Key*Asc <"#" > Then 4590 

4520 If KeyOAsc ("Y"> And Key< >Asc < "y " > Then 4770 

4530 ? "ENTER AMOUNT OF PAYMENT" ;: Input Pmt 

4540 ? "§u-'*t§u^£»tioj.t£<t": Gosub 1220 

4550 If KeyOAsc ("Y") And KeyOAsc < "y" ) Then 4530 

4560 Pd*Pd+Pmt i Bd»Bd-Pmt 

4570 Gosub 1500: Gosub 1490: Goto 4770 

4580 Trap 4770: Gosub 1280 

4590 Trap 4600: Gosub 1480: If Tf =CnT < 1 , Len (TS> ) Then 4500 
4600 If Acc>* e Nac Then 4770 
4610 Goto 4590 

4620 Gosub 1025: Posi ti on 12,0:? " up ! tfp£*pa-'&££llN’i«u" 

4630 Gosub 1400: If T«*"" Then 4770 

4635 If T*»"NEXT" Then Gosub 1425: Goto 4620 

4640 Trap 4690: Acc^Val (T$) : Acc$*T$: T*“"#" , AccT, 

4650 F=Find(Acpt$,TS,0> : If F»0 Then ? "A££llFJHi*^!* - For W®1 To 100: Ne 

xt W:Goto 4620 

4660 Gosub 1260: Gosub 1280: Gosub 1290 
4670 Goto 4730 

4680 Trap 4770: Gosub 1430: Gosub 1340: Goto 4770 
4690 Trap 4770: Gosub 1280 

4700 Trap 4710: Gosub 1480: If T$»Cn$ < 1 , Len (TS) ) Then 4730 
4710 If Acc >*Nac Then 4770 
4720 Goto 4700 

4730 Gosub 1510: Gosub 1530: Gosub 1320: Gosub 1570: Gosub 1610: Gosub 1630: Gosub 122 
0 

4740 If Key-Asc<"*"> Then 4700 

4750 If KeyOAsc <"P") And Key< >Asc ( "p " ) Then 4770 
4760 Goto 4680 

4770 Close #1 : Close • #7: Goto 3940 

4730 ? "THIS FUCNTI0N WILL RE INDEX ALL OF THE":? "ACCOUNT FILES. PRESS Y TO STAR 
T, ":? "N TO ABORT. 

4790 Gosub 1220 

4800 If Key< >Asc ( " Y" ) And Key< >Asc ( "y" ) Then 3940 
4810 Close #1 : Open #1 , 4, 0, "D1 : ACCOUNT. DAT" 

4820 AcptS*" " : Trap 4870 
4830 Gosub 1480 

4840 S$=Str$ (Sa) : B$=®Str$ <Ba> : Acc$*Str$ ( Acc ) 

4850 Acp t$=Acpt$ , "#" , Acct , "@",S*, "&",B* 

4860 Goto 4830 r . 

4870 Close #l:<Poke 1913, S0i Open #1 , 8, 0, "D1 : ACCPT. DAT" 

4880 Rput # 1 , A£pltt; ' 

4890 Close #1 ^Poke l"9T37S7jl Goto 3940 
4900 Gosub 1 02^TPo"sTtl'Orr"t6 , 0 : ? 

4910 AccS*Str* (Nac) : Gosub 1240: If F«0 Then 4770 

4920 Gosub 1280:Gosub 1290:Gosub 1510:Gosub 1530: Gosub 1050:Gosub 1540;Gosub 132 
0: Gosub 1570 

4930 Position 2,18:? "§u-'*t §u-'£llbbj.i£**" ; : Gosub 1220 


4930 Tdt*0sPd=0: Bd“0: Gosub ISOOsGosub 1 490s Nac=Nac+i : Gosub 9000s Gosub 1160 
4960 Goto 4770 

4970 Gosub 1025s Position 15, 0s? "N¥3&<tp°pa§4 " 

4980 Gosub 1400s If T®**" " Then 4770 

4985 If T " NEXT " Then Gosub 1425s Goto 4970 

4990 Trap 5080: Acc*Val <T$ ) s Acc$»T$: T$ «"#" , Acc$, "il" 

5000 F«Find<Acpt$,T$,0> s If F»0 Then ? " 3 ££llR!**- ; >$ll<t-'ll**t-'* s For W»1 To lOOsNe 
xt WsGoto 4970 

1290 


Then 4770 


5010 Gosub 1260: Gosub 1280s Gosub 
5020 Gosub 1510s Gosub 1530: Gosub 
u-'* t \x-’ il : Gosub 1220 

5025 If Key*=Asc ( " * " ) Then 5090 
5030 If KeyOAsc <"Y"> And Key< >Asc ( "y " > 

5040 Gosub 1050s Gosub 1540s Gosub 1650 
5050 ? "§u-'9t§u^£lloajji£*4 *' $ t Gosub 1220 
5060 If Key< >Asc < "Y" ) And Key< >Asc < "y " > 

5070 Gosub ISOOsGosub 1490: Goto 4770 
5080 Trap 4770: Gosub 1450 

5090 Trap 5100s Gosub 1480s If T$ »Cn* ( 1 , Lan <T*> ) Then 
5100 If Acc>“Nac Then 4770 
5110 Goto 5090 


1320s Gosub 1570: Gosub 1610s Gosub 1630s? "§u-'«t§ 


Then 4770 


SB* 


020 


? 


# 6 j " A 1 1 " s Posi t i on 1 , 


5 1 50 
5170 


5180 
5190 
5 

5j£ I 

5230 

5240 

5250 

5260 

5270 

1ST 

w! iw 

cr 

53 

5 

5320 

5330 

5340 


5200 
*^10 


'’SO 

•r.rxffj 

«:T 00 
“'SIO 


Then 

Then 

Then 

Then 


\,J V 1 V 
C*7AA 

2690 

5370 


"&**:$-'&££ II FI ! *«u" 


5120 Gosub 1020: Posi tion 1,1: 

1,3:? # 6 ? "Exit to menu” 

5130 Position 1,4s? # 65 "Selected accounts" 

Gosub 1215 
If Key«*A$c < "A" ) 

If Key=Asc<"0"> 

If Key*Asc("E") 

If Key«*Asc ( "S" ) 

Goto 5120 

Gosub 1025s Posi ti on 16,0s? 

Gosub 1045 
Trap 5540s Gosub 1450 

Gosub 1480: If Cn*="" And Acc>IMac Then 5540 
If Cnf=" " Then 5260 
Gosub 1430: Gosub 1670 
Goto 3260 

Gosub 1025s Posi ti on 10,0s? 

Gosub 1045 v 

Trap 5540s Gosub 1450 
Gosub 1480: If Acc>Nac 


. r> 
8 : 


# 65 " Out standi ng " s Posi ti on 


" llF46u«3>iI§!i ’-'A££Hn!*<*u" 


Then 5540 


If Bd<»0 Then 5330 


5350 


5360 

5370 

5380 

5400 

5405 

3410 

5420 


" up ! ip£4pa-'&££ II <* Li " 


Gosub 1430s Gosub 1670 
Goto 5330 

Gosub 1025s Posi ti on 12,0s? 

Gosub 1045 

Gosub 1400s If T$«" " Then 5540 
If T$»"NEXT" Then Gosub 1425: Goto 5370 
Trap 5470s Acc»Val <T $) 5 Accf «Tf : T*®"#" , Acc$, 

F=Find <Acpt$,T$,0> s If F=0 Then ? "4££llR»**-'‘ill*- / ll>*«' , SKp 
xt WsGoto 5370 
5430 Gosub 1260 

5440 Trap 5540s Gosub 1450: Gosub 1470 
5450 Goto 5510 

5460 Gosub 1430s Gosub 1670: Goto 5510 
5470 Trap 5540: Gosub 1450 

5480 Trap 5490s Gosub 1480: If T« =Cn$ ( 1 , Len <T$> ) Then 5510 
5490 If Acc>“Nac Then 
5500 Goto 5480 
5510 Gosub 1730s Gosub 
5520 If KeyOAsc ("P") 

5530 Goto 5460 

5540 Close # 1 : Close #7 : Goto 5120 

5550 Gosub 1020s Posi ti on 1,1s? # 65 "Add inventory" : Posi ti on 1,2s 
dit" s Position 1,3s? # 6 .: "Exit to menu" 


":For W-l To 100:Ne 


5540 


1220s If Key*Asc < ) Then 5480 
And Key< >Asc < "p " ) Then 5540 




# 65 " Inventory e 
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ion 1,6:? #6; "Sort inventory" 
5580 Gosub 1215 
5600 If Key-Asc ("A") 

5610 If KeyAsc ( " I " > 

5620 If Key-Asc < "E" ) 

5630 If Key*Aac ("P") 

5640 If Key«Asc <"R"> 

5645 If KeyAsc ( "S" ) 


Then 5660 
Then 5850 
Then 2690 
Then 6090 
Then 6260 
Then 7100 


5 5 0 (3 o t o 5 5 5 (3 

5660 Gosub 1025: Posi t i on 14,0:? " II " I Position 11,1:? "ENTER ’END-’ TO 

QUIT" 

5670 F'n* 3 " " : Desf »" " : Qoh^O: Cost^O: Pr i ™0: Sol d*0: Tds 3 0: Qoo^O 

5680 Gosub 1770: Gosub 1860 

5690 If Pnf="END" Then 5820 

5700 Gosub 1970: If F>0 Then 5680 

5710 ? 

5720 Gosub 1220 

5730 If KeyOAsc <"Y" ) And Key< >Asc ( "y " > Then 5660 
5740 Trap 5750: Goto 5760 

5750 Trap 5810: Open #1 , 9, 0, "D2: INVFIL. DAT" 

5760 If Len (Pnpt$> >Max*M2~i5 Then ? "'MEMORY FULL, SAVING INDEX":Goto 5820 
5770 Note #1 , S, 8: Rput #1 , PnS, DesS, Vn*, Val$, Va2*, Qoh , LocS, Reo, Cost , Pri , Sol d, Tds, Q 
oo, Pg 

5780 S* 3 Str$ (S) : B$=*Str$ (B) 

5790 Pnpt$»Pnpt$, "#",Pn$, "@",Sf , "&",B$ 

5800 Goto 5660 

5810 ? " JS§u©^pbdllb' , ^‘liC.l L ose #l:Goto 5660. 

5820 Close tl^oke 1 9 1 3 , 80y?0p en #1 , 8, 0, "D2: INVPT. DAT" 

5830 Rput # 1 , F n 

5840 Close ttlsfFok'e 1913, 87) Goto 5550 

5850 Gosub 1025TF^sTHorTl4, 0: ? lloG-'pIi* " : Posi t i on 11,1:? "ENTER 'END’ TO 

QUIT" ' 

5860 ? : ? "PART NUMBER" : Input Pnf:? " ":If Pn*»"END" Then Close 

#1 : Goto 5550 

5865 If F'n$="NEXT" Then Gosub 3930: Goto 5850 

5870 T«*"#",F‘nt, "S" ______ 

5830 F=Find (Pnpt*, T$, 0) :T=F: If F-0 Then ? " VAo^^Wxgpo-'^ llbB^TS" s F 
or W= 1 To 100: Next W:6oto 5850 

5890 Trap 5950: F=Abs <F) : F*Fi nd <Pnpt$, , F) : S=*Val <Pnpt$ <F+1 ) ) 

5900 F«Find <Pnpt$, , F) : B=*Val (Pnpt$ (F+l ) ) 

5910 Trap 5920: Goto 5930 
5920 Gosub 1130 

5930 Poi nt # 1 , S , B : Rget # 1 , F'n$ , Desi , Vn S , V a 1 % , Va2$ , Qoh , Loc Reo, Cost, Fri , odd, Tus, 
Qoo , Pg 

5940 If Test 3 ! Then Test=0:Goto 5870 


5950 


">":Position 14,0:? "§^ajj^*llb|3-'}.tS§*" : ? : Gosub 1770 

j m v i i t -r - Al IP. / kl \ K? V T « ■ II a 


Then 6050 

Then Close #l:Goto 5550 
Then 6060 
Then 5850 

Then F=T-10: If F>*0 Then Test=l:Goto 5890 
Then Test 3 !: Goto 5890 


Or Ke'yAsc ( "e" ) 
Or KeyOAsc ( "q " ) 
Or Key“Asc < "s" > 
Or Key=*Asc ( "n" > 


5960 ? "(E)DITji (Q)UIT; (S)AVE; (N)EXTj 
5970 Gosub 1220:? "" 

5980 If Key*Asc<"E"> 

5990 If Key-Asc <"Q"> 

6000 If Key*Asc ( "S" ) 

6010 If Key-Asc ("N") 

6020 If Key-Asc < " + " ) 

6030 If KeyAsc ("*" > 

6040 Goto 5950 

6050 Gosub 1860: Goto 5950 

6060 Gosub 1970: If F>0 And T< >F Then 5950 
6070 Gosub 1 1 90 
6080 Goto 5850 

6090 Gosub 1025: Posi ti on 17,0:? " n¥«t§ ll^u" : Gtc-0: Gtp-0 

6100 ? : ? "1-ALL":? "2-BY VENDOR NAME":? "3-BY PRODUCT GROUP":? "4-PRICE LIST" 
6110 I- 


• r 

n 


BELOW REORDER F’OINT and not on order" 


6120 Gosub 1220: Key=K'ey-48: If Key >5 Or Key< 1 Then 5550 
6130 Trap 6250:Gosub 1430:Gosub 1130 
6140 If Key«4 Then Gosub 2170: Goto 6190 


tj~ *xr K-i " ... 11 . 


-ri _l 1. 


* » 

Lf' : 


nu i uir mtd _il 


6160 If Key«2 Then ? "ajj ! i'all5--‘’ ! *t&xp " ps Input Cn* 

6170 Trap 6170s If Key*3 Then ? "¥ci ll SF 4 £<t J 'Oil n¥" Input Pgn 3 Cn**"PRQDUCT GROUP 
Str* (Pgn) 

6130 Gosub 2020 

6190 Trap 6240sRget #1 , Pn*, Des$, Vn*, Val*, Va2*, Qoh, Loc*, Reo, Cost , Pri , Sold, Tds, Qoo 

, Pg 

6200 Trap 6220s Tcost*0s Tcost=Cost #Qohs Tpri=0a Tpri=Pri *Qohs Gpm=100 
6210 Gpm* ( Int ( < 1~ <Cost/Pri ) ) *1000) > /10 
6220 On Key Gosub 2090,2130,2130,2220,2250 
6230 Goto 6190 

6240 ? #7;Chr*<Pt3> :? #7; "WHOLESALE VALUE** " ; Gtc s ? #7; "RETAIL VALUE**" ; Gtp s ? #7.; 
Chr* <Pt4) 

6250 Close #ls Close #7 s Goto 5550 

6260 ? "THIS FUCNTIQN WILL RE INDEX ALL OF THE " s ? "INVENTORY FILES. PRESS Y TO CO 
NTINUE," :? "N TO ABORT. " ; 

6270 Gosub 1220 

6280 If KeyOAsc <"Y"> And Key< >Asc ( "y " ) Then 5550 

6290 Gosub 1130 

6300 Pnpt**" " s Trap 5820- 

6310 Note #l,S,BsRget #1 , Pn$, Des*, Vn*, Val*, Va2*, Qoh, Loc*, Reo, Cost , Pri , Sold, Tds, Q 
oo , Pg 

6320 S**Str* (S) s B**Str* (B) 

6330 Pnpt*»Pnpt*, "#",Pn*, "«",S*, "&",B* 

6340 Goto 6310 

6330 Gosub 10203 Posi ti on 1 , 1 s? # 65 "Order " : Posi t i on 1,2s? # 65 "Recei vi ng " s Posi t i on 
1,3s? # 6 ; "Exit to menu" 

6360 Position i,4s? # 6 ; "Turn report " 3 Posi ti on 1,5s? # 6 ; "Sales report" 

6380 Gosub 1215 

6400 If Key»Asc ( "0" ) Then Te*0sGoto 6460 

6410 If Key*Asc<"R") Then 6680 

6420 If Key*Asc ( "E" > Then 2690 

6430 If Key*Asc("T") Then 6800 

6440 If Key»Asc <"5"> Then 6920 

6450 Goto 6350 

6460 Gosub 1025s Posi ti on 13,0s? "YRdCt 4up~ / llb5po" 

6470 If Te=0 Then Position 11 , 1 s? "ENTER ' END’ TO ABORT" 

6480 Pn**" " s Des**" " s Vn**" " s Val **" " 3 Va2**" " s Qoh=0s Loc**" " s Reo*0s Cost*0s Pri *0s Sol d 
*0s Tds*0s Qoo*0 

6490 ? : ? "PART NUMBER" s Input Pn*s? " "3 If Te*0 And Pn**"END" Th 

en 6910 

6500 If Pn*="NEXT" Then Gosub 3930a Goto 6460 

6510 If Pn**"" And Te>0 Then 6630 

6520 Gosub 1090a If F»0 Then 6460 

6530 Gosub 1130s Gosub 1140s Gosub 1770 

6540 ? " iu- / * t t ; s Gosub 1220 

6550 If KeyOAsc ("Y”) And KeyOAscC'y") Then 6460 

6560 If PvS*"" Then F'v*«Vn *3 Pal** Val*: Pa2**Va2* 


6570 If Pv*OVn* Then ? 5 ? "^ll*^ 0 i^p^£y*£Slla"'- / fu« / 4 t§u-'llO$ " 5 s Gosub 1220s If Key< >A© 
c C'Y" ) And KeyOAscC'y") Then 6460 

6580 ? " 3 " 3 Position 2,2s? " ARA!* §«&->* ll-'lldapo" ; : Trap 6580s Input Hms If Hm< 1 Then 64 
60 

6590 ? s? '’§u- , *t§u-'£lld5j.t£*f" j s Gosub 1220a If Key< >Asc ( " Y" > And KeyOAscC'y") Then 
6580 

6600 Qoo*Qoo+Hm 

6610 If Te<l Then Gosub 2330 

6620 Gosub 2460s Gosub 1190s Goto 6460 

&& 7% O ^ * 1 ^ ^ ^ y s; •syy TTTQ T 1 ^? TH? TTtT TTIt? 

***** ? 

an: assesses as sen** •* 

6640 ? "}TERMS"p s Input T*s? " AUTH. " 5 s Input 0* 

6650 ? #7 ; "DATE " p D* < 1 , 2) ; p D* (3, 4) 5 "/" ; D* (3) ; " TERMS ";T*;" AUTH. " 3 Q* 

6660 ? #7 ; "TOTAL *" 5 Tot ? Chr* <Pt4> 

6670 Pv*«""sTe*0sTot»0sM10*M10+ Is Gosub 1170s Goto 6910 

6680 Gosub 1025s Posi t ion 14,0s? ’-'¥♦ 11 *" s Position 11,1s? "ENTER ’END’ TO 

QUIT" 

6690 ? 3 ? "PART NUMBER"s Input Pn*s? " "3 If Pn*="END" Then Close 


6700 If Pn$="NEXT" Then Gosub 3930s Goto 6680 

6710 Gosub 1090s If F»0 Then 6680 

6720 Gosub 1130: Gosub 1140s Gosub 1770 

6730 ? "Su-'stiu-^tM-'Y&bs-'oR-'iib-'^*" 5 sGosub 1220 

6740 If KeyOAsc ("Y") And Key< >Asc < "y " > Then 6680 

6750 ? " } " r Posi t i on 2,2s? " AN&^§<tB- , bp£j.i§aj.ia‘ l ; : Trap 6750: Input Hms If Hm< 1 Then 66 
80 

6760 ? : ? '* §u- , *t§u-'£llboj.i£ 6 T"; s Gosub 1220s If Key< >Asc ( " Y" ) And Key< >Asc < "y“ ) Then 
6750 

6770 Qoo^Qoo-Hm: Qoh*Qoh+Hms If Goo<0 Then Qoo=0 
6780 Gosub 1190 
6790 Goto 6910 

6800 Gosub 1025s Position 15,0s? "<tNd ! i-'bj.i¥llb<* " 

6810 Position 2,2s? " 1 . *Nb^" s Posi t i on 2,4s? "2. s Posi tion 2,6s? "3 

.pu§<*" 

6820 Trap 6820: Posi ti on 2,18s? "p^*pb-'£t ll§£p" s Input Keys If Key*3 Then 6350 

6830 If Key >3 Then 6820 

6840 F® Is Gosub 1430s Gosub 2270 

6850 Trap 6900 1 Gosub 1110s If F®0 Then 6900 

6860 Gosub 1130s Gosub 1140 

6870 ? #7? Using FI'S, Pn$, Des$, Qoh, Cost , Pri , Qoo, Loc$, Sold, Tds 
6880 If Key =2 Then Sold«0s Tds»0s Gosub 1190 
6890 Goto 6850 

6900 ? #7 ; Chr$ (F‘t3> s ? #7;ChrS(Pt4) 

6910 Close # 1 : Close #7sGoto 6350 

6920 Gosub 1025: Posi ti on 13,0s? "U 6 ! ipu-'bp¥llb«" 

6930 Position 2,2s? " 1 . * II* Atfij" s Posi t i on 2,4s? "2. * ll<t&^u-'A ! *S-'£ ! ij.i&b" : Posi t i on 2,6s 
? "3.MU§<t" 

6940 Position 2,8s? "4. (Cl ear s all sales data) " 

6950 Trap 6820s Posi ti on 2,18s? ,, p'*<tpd-'£t II §£jjt" t Input Keys If Key=3 Then 6350 
6960 If Key >4 Then 6950 

6970 Gosub 1430s? #7; Chrf <Pt 1 ) ; "SALES REPORT " ; D* < 1 , 2) $ " /" ? D* <3„ 4) ; " / " ; D* (5, 6 ) 
6980 F 1 S= "$#########. ##" 

6990 ? #7 s "YEARLY SALES ="|s? #7; Using Fl¥,Ytd 
7000 ? #7$ "PERIOD SALES * M fs? #7} Using FlS,Ptd 
7010 ? #7$ "TAXABLE SALES®" ; s ? #7; Using Fl¥,Ttd 
7020 ? #7;Chr$<Pt4> 

7030 If Key> 1 Then Ptd«0: Ttd=0: Dtot«0: If Key«4 Then Ytd=0 
7040 If Key>l Then Gosub 9000s Gosub 1170 
7050 Goto 6910 

7100 Gosub 1025s Posi tion 14,0s? " §ap^<t fib(Xullb« " 

7110 ? : ? "PLACE DISK IN DRIVE l."s? "PRESS *Y* TO START." 

7120 Gosub 1220s If Key< >Asc ( " Y" ) And Key< >Asc < "y" > Then 5550 

7130 Trap 7100s Xio 254^ *1^ 0. 0. "D1 s " j ^ 

•» 7 i an r: #lj^oke 1913, SpY Open #1 , 8 , 0, "Ds INVPT. DAT" s Rput #1 , Pnpt¥s Cl ose #lsjPoke 

1913, 87^> ^ V 

7150?Dpen # 1 , 8 , 0 , "Ds INVFIL. DAT": Close #2s0pen #2, 4, 0, "D2s INVFIL. DAT" 

7160 Tf = " - M- t - t - l - t - t -i - M- t-t - " ; F®0 

7170 F*Find (F'nptf , ,F> s If F=0 Then 7210 

7180 Z®Find (Pnptf, "0" , F> 

7190 If Pnpt¥(F,Z-l)<T¥ Then T$*Pnpt$ (F, Z-i ) s Fi=F: Goto 7170 
7200 If F>0 Then 7170 

7210 F®Find (Pnptf, "0" ,F1> sS=*Val (Pnpt$(F+l) ) 

7220 F«Find (Pnptf, "«-<",F> sB=*Val <Pnpt$<F+l> ) 

7230 Pnpt¥<Fl,Fl)*"X" ^ . 

7240 Point #2,S,B:Rget #2, Pnf>, Des*, Vn¥, Val», Va2«, Qoh, LocS, Reo, Cost, Pri , Sold, Tds, 
Qoo, Pg 

7250 Rput #1 , PnS, Des¥, Vn$, Val$, Va2S, Qoh, Loc¥, Reo, Cost, Pri , Sol d , Tds, Qoo, Pg 
7260 F=F i nd (Pnptf , "#" , 0) s If F>0 Then 7160 

7270 Close #lsClose #2:? "> REMOVE DISK FROM DRIVE 1 AND PUT IT":? "IN DRIVE 2. P 
RESS ANY KEY WHEN READY" 

7280 Gosub 1220s Goto 6290 

7999 Close #l:Rem . SETUP 

8000 Gosub 1025 

8005 Trm*»"C.0.D. " s If Len(Cl$Xl Then C1¥="0" s C2¥®"0" 


C 


JO 20 
8030 
8040 
8042 
8044 

8049 

8050 
8060 
8070 
8080 
8090 
8 1 00 
81 10 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
82 1 0 
8220 
8230 

8234 
8240 
8250 
2 . " 
8260 
8270 
8280 
8290 


If Key=Asc < "E" ) Or Key*Asc ( "e" ) Then Gosub 8720: Soto 8000 
If Key*Asc C'C" > Or Key*Asc ( "c" ) Then 8050 
If Key=Asc("R"> Or Kay»A*c ( "r " ) Then 2550 
If K«y»Asc ( "F" ) Or Key*A*c < "f " ) Then Gosub 8900:? 

If KeyOAsc ( "M" ) Or Key=*Asc ( "m" ) Then Gosub 8950 
Goto 8010 

? "} SCREEN COLOR IS ";C1 

? "RETURN OR ENTER NEW COLOR (0-255) Input 0$: If QS="" Then Q*=C1$ 
If Len (Q$) >3 Then 8050 


Poke 710, Val (G$) 

? "IIS THIS CORRECT (Y OR N>?";: Gosub 1220 

If KeyOAscC'Y") And Key< >Asc ( "y " > Then Poke 710, Cl: Goto 8050 
C1S*QS 

? "} BACKGROUND COLOR IS " ; C2 

? "RETURN OR ENTER NEW COLOR (0-255) Input 0$: If 0*="" Then Q*=C2S 
If Len (Q$) >3 Then 8120 
Poke 712, Val <Q$) 

? "IIS THIS CORRECT (Y OR N)?"j: Gosub 1220 

If KeyOAscC'Y") And Key< >Asc ( "y " ) Then Poke 712,C2:Goto 8120 
C2S=QS 


? "I CLEAR TOTALS (Y OR N)";:Gosub 1220 
If KeyOAscC'Y") And KeyOAscC'y") Then 8220 
Dtot^O: Ytd^O: Ptd=0: Ttd=0: M7=0: MS^O: M9«0 


? "3WRITE SETUP DATA FILE. (Y OR N)?";:Gosub 1220 
If KeyOAsc ("Y" ) And KeyOAscC'y") Then 8250 

Trap 8234: Cl ose #l:0pen #1 , 4,0, "Dt MASTER" : Close #l:Goto 8240 
? "I£A!^-Nl^!^f3^6o9«p-'«lt- ; xAu*pd- ; siu© ,, *^f' ,| '' , : Goto 8010 
Gosub 8540 

? "UNITIALIZING INVENTORY FILES WILL":? "ERASE INVENTORY RECORDS 


IN DRIVE 


? "INITIALIZE INVENTORY FILES. (Y OR N)?";: Gosub 1220 
If KeyOAsc ("Y") And KeyOAscC'y") Then 8350 

? "I PLACE DATA DISK IN DRIVE 2 AND":? "PRESS ’Y’ TO START, ’N’ TO ABORT."; 
Gosub 1220 


8300 If KeyOAsc ("Y") And KeyOAscC'y") Then 8350 

8310 ? " } THIS WILL TAKE A WHILE.":? "FORMATTING DISK IN DRIVE 2.":Xio 254, #1,0,0 
, " D2 : " 

8320 Trap 85301 ? ^> INITIALI ZING SYSTEM FILES IN DRIVE 2.": Dim Pnpt* (Max *M2) 

8330 Trap 8340 : j^^ olTsTT ? Op en #1,8 .0. "D2: I NVPT . DAT " : Rput #l,Pnpt» 

8340 Close #l:Trap 8550: Poke #913, 8 7) Open #1 , 8, 0, "D2: INVFIL. DAT" 

8350 Close #1:? "> INITIALIZInV^CCOUNT FILES WILL":? "ERASE CUSTOMER RECORDS IN 


DRIVE 1." 

8360 ? "INITIALIZE ACCOUNT FILES. (Y OR N)?";:Gosub 1220 
8370 If KeyOAsc ("Y") And KeyOAscC'y") Then 8510 
8380 Sac*M3+l:? "^STARTING CUSTOMER NUMBER: " ; Sac 
8382 ? "THIS WILL TAKE ABOUT " ; Int (Ml #30) ; " MINUTES." 
8335 Trap 8390: Dim Acpt* (Ml *Max ) 

8390 ? "PRESS 'Y’ TO START, ’N' TO ABORT."; 

8400 Gosub 1220 


8410 If KeyOAsc ("Y") And KeyOAscC'y") Then 8510 

8420 Gosub 8880 . / ./ / ^ l ' 

8430 Trap 8490:0pen #1,8,0, "B1 : ACCOUNT. DAT" : Acpt$=" " / • 

8440 For Acc=Sac To Sac +2500 

8450 Note #1 , Sa, 3b : Rput #1 , Cn$, Cn2$, Cal*, Ca2*, Tdt , Pd , Bd , Acc , Trm* 
8460 Acpt *= Acpt*, "#" , Str* (Acc ) , "8" , Str* (Sa) , , Str* (Sb) 

8470 If Len ( AcptS) >M1 *Max~15 Then Pop :Goto 8490 
8480 Next Acc 


8490 ? : ? "LAST CUSTOMER NUMBER THIS DISK: ** ; Acc : M3»Acc : Gosub 8880 

8495 Trap 8496:Close #l:Qpen #1 , 4, 0, "D: MASTER" : Cl ose #1 : Nac=Sac : Goto 8500 

8496 Gosub 9000 
8500 Gosub 8540 

8510 Close #l:Goto 2550 / 

8540 Open #1 , 8, 0, "D1 : SETUP. DAT" : Rput #1 , Cl* , C2*, NS, AS, A 1$, Mi sc*, Ft 1 , Pt2, Pt3, Pt4, 
M3, M4, M5, M6: Cl ose #1 

8550 Close #l:Qpen #1 , 3, 0, "D1 : SETUP2. DAT" : Rput #1 , D*, Dtot, In, Ytd, Ptd, Ttd, Nac, Tr, 


” Ud T KLC2. 1C. ■» 


S ; 


Al* 


" 5 Pt 1 


15s ? 
16s ? 
17s? 
18:7 


Close #1: Return 

Position -2,2:7 "SA«p-'oS5<35&f3~® " » D$ 

Position 2,3:7 "(5 llNti-'ElIxYA^B^AxpTr" : 7 N$ 

Position 2,5:7 , '(lllNO- / £llx¥4^B-'A35opuu■^• ,, : 7 AS: 7 A1S 
Position 2,8s? * Ild2&*§ II^tt" s 7 MiscS 

Position 2,10:7 "s&u^oaftj.i-'S 1 !-'* "jTr*100 
Position 2,11:7 "MuY^apS-'YdS'it-'EliSp® "» ptl 
Position 2,12:7 "£ ll ^Sp^upl~'¥ti §**«-'£ II Ip® ";Pt2 
Position 2,13:7 "££ ! *£p ! 4^£ll^ap*£upl^£lllp® ";Pt3 
Position 2,14:7 " ° uo£- / *ppa-'£llSp® ";Pt4 
Position 2,15s? "Vipu*^§*laii §£p-''"® ";In+l 
Position 2,16:7 " + - / A££liN^®u-^*^-r® "jMl*100 
Position 2,17s? " *^¥&Q«-'*t'NxppQu® "|M2*100 
Position 2,18:7 "!$pa6-'¥ll-'**Rxspa® "jMlO 
Position 2,20s? " (E) di t , (C) onti nue, (R> eturn to menu" 

Position 2,21:7 "(F)armat drive l,<M>ake Master" 

Return 

Position 16,2: Input D¥slf Len<D$)<>6 Then 8720 
Trap 8720: If Val <D*> < 10100 Then 8720' 

Position 1,4: Input NS 
Position 1,6: Input A$ 

Position 1,7: Input Al$ 

Position 1,9: Input Misc* 

Trap 8780: Position 15, 10: Input Temp : Tr=Temp/ 100 
Trap 8790: Position 22, 11: Input Ptlslf Pt 1 >255 Then 8790 

Trap 8800: Position 23, 12: Input Pt2: If Pt2>255 Then 8800 

Trap 8810: Position 24, 13: Input Pt3: If Pt3>255 Then 8810 

Trap 8820: Position 17, 14: Input Pt4:If Pt4>255 Then 8820 

Trap 8830: Position 17, 15: Input Temp: In«Temp-l 

Trap 8840: Posit i on 17, 16: Input Temps Ml =Temp/ 100 
Trap 8850: Posi ti on 17, 17: Input Temps M2*Temp/ 100 
Trap 8860 : Pos i t i on 17, 18: Input M10 

^ j>- f ,*-' ■" “““ “ 

Cl gse #1 (Poke 1913,80)0pen # 1 , 8, 0 , "Dl : ACCPT. DAT" : Rput #1 , Acpt* : Cl ose #l:(Pok 
Return — • — — 

"7^~"3 FORMAT DRIVE 1, ARE YOU SURE?":Gosub 1220: I f Key< >A»c ( " Y" ) And KeyOAsc 
i Then Return 

Trap 3930: Close #l:Xio 254, #1,0,0, "Dl : " : Cl ose #l:Return 

? "•iidxAt-'p^oi'Oj PRESS ANY KEY TO TRY":? " AGAIN. ": Gosub 1220: Goto 8920 

Close #l:0pen #1 , 8, 0, "D: MASTER" _ 

Trap 8965:7 ">":? :? "ENTER STARTING ACCOUNT NUMBER" ;: Input StacsGoto 39 u 

Stac*1001 

M3*Stac~l : Rput #l,Stac 
Close #1:7 "3": Return 

Trap 9010: Close #l:0pen # 1 , 4 , 0, "D: MASTER" : Cl ose #1: Return 
7 :? "PUT MASTER DISK IN DRIVE 1":? “AND PRESS ANY KEY." 

Gosub 1220: Goto 9000 




